HW3.R
merve.oncel
2022-06-13
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.7 ✔ dplyr 1.0.9
## ✔ tidyr 1.2.0 ✔ stringr 1.4.0
## ✔ readr 2.1.2 ✔ forcats 0.5.1## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()library(scatterplot3d)
library(tibble)
library(ggplot2)
library(data.table)##
## Attaching package: 'data.table'## The following objects are masked from 'package:dplyr':
##
## between, first, last## The following object is masked from 'package:purrr':
##
## transposelibrary(plotly)##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutlibrary(TSstudio)
library(readxl)
#reading data as a table
x_train <- read.table("/Users/merve.oncel/Downloads/uWaveGestureLibrary_X_TRAIN")
y_train <- read.table("/Users/merve.oncel/Downloads/uWaveGestureLibrary_Y_TRAIN")
z_train <- read.table("/Users/merve.oncel/Downloads/uWaveGestureLibrary_Z_TRAIN")
ecg <- read.table("/Users/merve.oncel/Downloads/ecgTrain")
#combining tables in three different columns.
mergedata <- data.frame(c1 = x_train,
c2 = y_train,
c3= z_train)
ts.plot(mergedata)
x=x_train$V2
y=y_train$V2
z=z_train$V2
#plot result
p=plot_ly(ecg,x=~x,y=~y,z=~z)
p## No trace type specified:
## Based on info supplied, a 'scatter3d' trace seems appropriate.
## Read more about this trace type -> https://plotly.com/r/reference/#scatter3d## No scatter3d mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode#Part 3/b
library(readxl)
#read and check ilmesafe data
distance = read_xlsx("/Users/merve.oncel/Downloads/ilmesafe.xlsx")## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`
## • `` -> `...15`
## • `` -> `...16`
## • `` -> `...17`
## • `` -> `...18`
## • `` -> `...19`
## • `` -> `...20`
## • `` -> `...21`
## • `` -> `...22`
## • `` -> `...23`
## • `` -> `...24`
## • `` -> `...25`
## • `` -> `...26`
## • `` -> `...27`
## • `` -> `...28`
## • `` -> `...29`
## • `` -> `...30`
## • `` -> `...31`
## • `` -> `...32`
## • `` -> `...33`
## • `` -> `...34`
## • `` -> `...35`
## • `` -> `...36`
## • `` -> `...37`
## • `` -> `...38`
## • `` -> `...39`
## • `` -> `...40`
## • `` -> `...41`
## • `` -> `...42`
## • `` -> `...43`
## • `` -> `...44`
## • `` -> `...45`
## • `` -> `...46`
## • `` -> `...47`
## • `` -> `...48`
## • `` -> `...49`
## • `` -> `...50`
## • `` -> `...51`
## • `` -> `...52`
## • `` -> `...53`
## • `` -> `...54`
## • `` -> `...55`
## • `` -> `...56`
## • `` -> `...57`
## • `` -> `...58`
## • `` -> `...59`
## • `` -> `...60`
## • `` -> `...61`
## • `` -> `...62`
## • `` -> `...63`
## • `` -> `...64`
## • `` -> `...65`
## • `` -> `...66`
## • `` -> `...67`
## • `` -> `...68`
## • `` -> `...69`
## • `` -> `...70`
## • `` -> `...71`
## • `` -> `...72`
## • `` -> `...73`
## • `` -> `...74`
## • `` -> `...75`
## • `` -> `...76`
## • `` -> `...77`
## • `` -> `...78`
## • `` -> `...79`
## • `` -> `...80`
## • `` -> `...81`
## • `` -> `...82`
## • `` -> `...83`distance## # A tibble: 82 × 83
## `İLLER ARASI ME…` ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 İL PLAKA NO İL A… ADANA ADIY… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN
## 2 01 ADANA 0 338 579 978 604 492 548 1005 881
## 3 02 ADIY… 338 0 917 646 628 738 886 717 1219
## 4 03 AFYO… 579 917 0 1320 596 255 287 1225 340
## 5 04 AÄžRI 978 646 1320 0 740 1056 1426 365 1635
## 6 05 AMAS… 604 628 596 740 0 331 824 679 936
## 7 06 ANKA… 492 738 255 1056 331 0 543 960 596
## 8 07 ANTA… 548 886 287 1426 824 543 0 1433 346
## 9 08 ARTV… 1005 717 1225 365 679 960 1433 0 1565
## 10 09 AYDIN 881 1219 340 1635 936 596 346 1565 0
## # … with 72 more rows, and 72 more variables: ...12 <chr>, ...13 <chr>,
## # ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>, ...18 <chr>,
## # ...19 <chr>, ...20 <chr>, ...21 <chr>, ...22 <chr>, ...23 <chr>,
## # ...24 <chr>, ...25 <chr>, ...26 <chr>, ...27 <chr>, ...28 <chr>,
## # ...29 <chr>, ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>,
## # ...34 <chr>, ...35 <chr>, ...36 <chr>, ...37 <chr>, ...38 <chr>,
## # ...39 <chr>, ...40 <chr>, ...41 <chr>, ...42 <chr>, ...43 <chr>, …str(distance)## tibble [82 × 83] (S3: tbl_df/tbl/data.frame)
## $ Ä°LLER ARASI MESAFE CETVELÄ° (01.01.2022) Ä°LLER ARASI MESAFE CETVELÄ° (01.01.2022) Ä°LLER ARASI MESAFE CETVELÄ° (01.01.2022): chr [1:82] "Ä°L PLAKA NO" "01" "02" "03" ...
## $ ...2 : chr [1:82] "Ä°L ADI" "ADANA" "ADIYAMAN" "AFYONKARAHÄ°SAR" ...
## $ ...3 : chr [1:82] "ADANA" "0" "338" "579" ...
## $ ...4 : chr [1:82] "ADIYAMAN" "338" "0" "917" ...
## $ ...5 : chr [1:82] "AFYONKARAHÄ°SAR" "579" "917" "0" ...
## $ ...6 : chr [1:82] "AÄžRI" "978" "646" "1320" ...
## $ ...7 : chr [1:82] "AMASYA" "604" "628" "596" ...
## $ ...8 : chr [1:82] "ANKARA" "492" "738" "255" ...
## $ ...9 : chr [1:82] "ANTALYA" "548" "886" "287" ...
## $ ...10 : chr [1:82] "ARTVÄ°N" "1005" "717" "1225" ...
## $ ...11 : chr [1:82] "AYDIN" "881" "1219" "340" ...
## $ ...12 : chr [1:82] "BALIKESÄ°R" "903" "1241" "324" ...
## $ ...13 : chr [1:82] "BÄ°LECÄ°K" "786" "1039" "207" ...
## $ ...14 : chr [1:82] "BİNGÖL" "633" "348" "1099" ...
## $ ...15 : chr [1:82] "BÄ°TLÄ°S" "746" "414" "1290" ...
## $ ...16 : chr [1:82] "BOLU" "689" "927" "417" ...
## $ ...17 : chr [1:82] "BURDUR" "649" "987" "166" ...
## $ ...18 : chr [1:82] "BURSA" "857" "1111" "278" ...
## $ ...19 : chr [1:82] "ÇANAKKALE" "1097" "1390" "518" ...
## $ ...20 : chr [1:82] "ÇANKIRI" "591" "769" "398" ...
## $ ...21 : chr [1:82] "ÇORUM" "582" "704" "505" ...
## $ ...22 : chr [1:82] "DENÄ°ZLÄ°" "762" "1100" "221" ...
## $ ...23 : chr [1:82] "DÄ°YARBAKIR" "538" "206" "1110" ...
## $ ...24 : chr [1:82] "EDÄ°RNE" "1183" "1421" "682" ...
## $ ...25 : chr [1:82] "ELAZIÄž" "496" "284" "961" ...
## $ ...26 : chr [1:82] "ERZÄ°NCAN" "677" "548" "955" ...
## $ ...27 : chr [1:82] "ERZURUM" "809" "522" "1141" ...
## $ ...28 : chr [1:82] "ESKÄ°ÅžEHÄ°R" "691" "959" "141" ...
## $ ...29 : chr [1:82] "GAZÄ°ANTEP" "216" "151" "795" ...
## $ ...30 : chr [1:82] "GÄ°RESUN" "720" "706" "868" ...
## $ ...31 : chr [1:82] "GÜMÜŞHANE" "780" "678" "1027" ...
## $ ...32 : chr [1:82] "HAKKARÄ°" "910" "655" "1489" ...
## $ ...33 : chr [1:82] "HATAY" "196" "317" "776" ...
## $ ...34 : chr [1:82] "ISPARTA" "619" "957" "167" ...
## $ ...35 : chr [1:82] "MERSÄ°N" "69" "407" "572" ...
## $ ...36 : chr [1:82] "Ä°STANBUL" "951" "1189" "450" ...
## $ ...37 : chr [1:82] "Ä°ZMÄ°R" "908" "1246" "329" ...
## $ ...38 : chr [1:82] "KARS" "1014" "727" "1343" ...
## $ ...39 : chr [1:82] "KASTAMONU" "696" "875" "504" ...
## $ ...40 : chr [1:82] "KAYSERÄ°" "335" "421" "523" ...
## $ ...41 : chr [1:82] "KIRKLARELÄ°" "1160" "1398" "659" ...
## $ ...42 : chr [1:82] "KIRÅžEHÄ°R" "377" "556" "425" ...
## $ ...43 : chr [1:82] "KOCAELÄ° (Ä°ZMÄ°T)" "841" "1079" "340" ...
## $ ...44 : chr [1:82] "KONYA" "358" "696" "226" ...
## $ ...45 : chr [1:82] "KÃœTAHYA" "676" "1014" "97" ...
## $ ...46 : chr [1:82] "MALATYA" "397" "186" "863" ...
## $ ...47 : chr [1:82] "MANÄ°SA" "887" "1224" "308" ...
## $ ...48 : chr [1:82] "KAHRAMANMARAÅž" "198" "163" "777" ...
## $ ...49 : chr [1:82] "MARDÄ°N" "549" "295" "1128" ...
## $ ...50 : chr [1:82] "MUÄžLA" "858" "1196" "364" ...
## $ ...51 : chr [1:82] "MUÅž" "743" "456" "1208" ...
## $ ...52 : chr [1:82] "NEVÅžEHÄ°R" "288" "504" "444" ...
## $ ...53 : chr [1:82] "NÄ°ÄžDE" "210" "548" "464" ...
## $ ...54 : chr [1:82] "ORDU" "708" "732" "823" ...
## $ ...55 : chr [1:82] "RÄ°ZE" "918" "772" "1077" ...
## $ ...56 : chr [1:82] "SAKARYA (ADAPAZARI)" "803" "1041" "302" ...
## $ ...57 : chr [1:82] "SAMSUN" "754" "757" "676" ...
## $ ...58 : chr [1:82] "SÄ°Ä°RT" "721" "390" "1297" ...
## $ ...59 : chr [1:82] "SÄ°NOP" "868" "883" "676" ...
## $ ...60 : chr [1:82] "SÄ°VAS" "428" "413" "706" ...
## $ ...61 : chr [1:82] "TEKÄ°RDAÄž" "1082" "1320" "581" ...
## $ ...62 : chr [1:82] "TOKAT" "493" "517" "645" ...
## $ ...63 : chr [1:82] "TRABZON" "839" "780" "998" ...
## $ ...64 : chr [1:82] "TUNCELÄ°" "631" "419" "1079" ...
## $ ...65 : chr [1:82] "ÅžANLIURFA" "355" "112" "934" ...
## $ ...66 : chr [1:82] "UÅžAK" "691" "1029" "112" ...
## $ ...67 : chr [1:82] "VAN" "905" "573" "1424" ...
## $ ...68 : chr [1:82] "YOZGAT" "490" "619" "479" ...
## $ ...69 : chr [1:82] "ZONGULDAK" "765" "1003" "484" ...
## $ ...70 : chr [1:82] "AKSARAY" "268" "580" "368" ...
## $ ...71 : chr [1:82] "BAYBURT" "801" "676" "1080" ...
## $ ...72 : chr [1:82] "KARAMAN" "293" "631" "340" ...
## $ ...73 : chr [1:82] "KIRIKKALE" "486" "665" "338" ...
## $ ...74 : chr [1:82] "BATMAN" "634" "302" "1210" ...
## $ ...75 : chr [1:82] "ÅžIRNAK" "720" "465" "1299" ...
## $ ...76 : chr [1:82] "BARTIN" "784" "1022" "518" ...
## $ ...77 : chr [1:82] "ARDAHAN" "1039" "751" "1362" ...
## $ ...78 : chr [1:82] "IÄžDIR" "1081" "750" "1464" ...
## $ ...79 : chr [1:82] "YALOVA" "906" "1144" "342" ...
## $ ...80 : chr [1:82] "KARABÃœK" "714" "952" "448" ...
## $ ...81 : chr [1:82] "KÄ°LÄ°S" "252" "210" "831" ...
## $ ...82 : chr [1:82] "OSMANÄ°YE" "89" "245" "668" ...
## $ ...83 : chr [1:82] "DÜZCE" "735" "973" "371" ...head(distance)## # A tibble: 6 × 83
## `İLLER ARASI MES…` ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 İL PLAKA NO İL A… ADANA ADIY… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN
## 2 01 ADANA 0 338 579 978 604 492 548 1005 881
## 3 02 ADIY… 338 0 917 646 628 738 886 717 1219
## 4 03 AFYO… 579 917 0 1320 596 255 287 1225 340
## 5 04 AÄžRI 978 646 1320 0 740 1056 1426 365 1635
## 6 05 AMAS… 604 628 596 740 0 331 824 679 936
## # … with 72 more variables: ...12 <chr>, ...13 <chr>, ...14 <chr>, ...15 <chr>,
## # ...16 <chr>, ...17 <chr>, ...18 <chr>, ...19 <chr>, ...20 <chr>,
## # ...21 <chr>, ...22 <chr>, ...23 <chr>, ...24 <chr>, ...25 <chr>,
## # ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>, ...30 <chr>,
## # ...31 <chr>, ...32 <chr>, ...33 <chr>, ...34 <chr>, ...35 <chr>,
## # ...36 <chr>, ...37 <chr>, ...38 <chr>, ...39 <chr>, ...40 <chr>,
## # ...41 <chr>, ...42 <chr>, ...43 <chr>, ...44 <chr>, ...45 <chr>, …# remove first row storing the names
distance1=distance[, -1]
distance1## # A tibble: 82 × 82
## ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11 ...12 ...13 ...14
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 İL A… ADANA ADIY… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN BALI… BİLE… BİNG…
## 2 ADANA 0 338 579 978 604 492 548 1005 881 903 786 633
## 3 ADIY… 338 0 917 646 628 738 886 717 1219 1241 1039 348
## 4 AFYO… 579 917 0 1320 596 255 287 1225 340 324 207 1099
## 5 AÄžRI 978 646 1320 0 740 1056 1426 365 1635 1576 1361 352
## 6 AMAS… 604 628 596 740 0 331 824 679 936 842 626 642
## 7 ANKA… 492 738 255 1056 331 0 543 960 596 536 314 889
## 8 ANTA… 548 886 287 1426 824 543 0 1433 346 506 473 1191
## 9 ARTV… 1005 717 1225 365 679 960 1433 0 1565 1452 1236 373
## 10 AYDIN 881 1219 340 1635 936 596 346 1565 0 291 525 1401
## # … with 72 more rows, and 69 more variables: ...15 <chr>, ...16 <chr>,
## # ...17 <chr>, ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>,
## # ...22 <chr>, ...23 <chr>, ...24 <chr>, ...25 <chr>, ...26 <chr>,
## # ...27 <chr>, ...28 <chr>, ...29 <chr>, ...30 <chr>, ...31 <chr>,
## # ...32 <chr>, ...33 <chr>, ...34 <chr>, ...35 <chr>, ...36 <chr>,
## # ...37 <chr>, ...38 <chr>, ...39 <chr>, ...40 <chr>, ...41 <chr>,
## # ...42 <chr>, ...43 <chr>, ...44 <chr>, ...45 <chr>, ...46 <chr>, …distance2=distance1[, -1]
str(distance2)## tibble [82 × 81] (S3: tbl_df/tbl/data.frame)
## $ ...3 : chr [1:82] "ADANA" "0" "338" "579" ...
## $ ...4 : chr [1:82] "ADIYAMAN" "338" "0" "917" ...
## $ ...5 : chr [1:82] "AFYONKARAHÄ°SAR" "579" "917" "0" ...
## $ ...6 : chr [1:82] "AÄžRI" "978" "646" "1320" ...
## $ ...7 : chr [1:82] "AMASYA" "604" "628" "596" ...
## $ ...8 : chr [1:82] "ANKARA" "492" "738" "255" ...
## $ ...9 : chr [1:82] "ANTALYA" "548" "886" "287" ...
## $ ...10: chr [1:82] "ARTVÄ°N" "1005" "717" "1225" ...
## $ ...11: chr [1:82] "AYDIN" "881" "1219" "340" ...
## $ ...12: chr [1:82] "BALIKESÄ°R" "903" "1241" "324" ...
## $ ...13: chr [1:82] "BÄ°LECÄ°K" "786" "1039" "207" ...
## $ ...14: chr [1:82] "BİNGÖL" "633" "348" "1099" ...
## $ ...15: chr [1:82] "BÄ°TLÄ°S" "746" "414" "1290" ...
## $ ...16: chr [1:82] "BOLU" "689" "927" "417" ...
## $ ...17: chr [1:82] "BURDUR" "649" "987" "166" ...
## $ ...18: chr [1:82] "BURSA" "857" "1111" "278" ...
## $ ...19: chr [1:82] "ÇANAKKALE" "1097" "1390" "518" ...
## $ ...20: chr [1:82] "ÇANKIRI" "591" "769" "398" ...
## $ ...21: chr [1:82] "ÇORUM" "582" "704" "505" ...
## $ ...22: chr [1:82] "DENÄ°ZLÄ°" "762" "1100" "221" ...
## $ ...23: chr [1:82] "DÄ°YARBAKIR" "538" "206" "1110" ...
## $ ...24: chr [1:82] "EDÄ°RNE" "1183" "1421" "682" ...
## $ ...25: chr [1:82] "ELAZIÄž" "496" "284" "961" ...
## $ ...26: chr [1:82] "ERZÄ°NCAN" "677" "548" "955" ...
## $ ...27: chr [1:82] "ERZURUM" "809" "522" "1141" ...
## $ ...28: chr [1:82] "ESKÄ°ÅžEHÄ°R" "691" "959" "141" ...
## $ ...29: chr [1:82] "GAZÄ°ANTEP" "216" "151" "795" ...
## $ ...30: chr [1:82] "GÄ°RESUN" "720" "706" "868" ...
## $ ...31: chr [1:82] "GÜMÜŞHANE" "780" "678" "1027" ...
## $ ...32: chr [1:82] "HAKKARÄ°" "910" "655" "1489" ...
## $ ...33: chr [1:82] "HATAY" "196" "317" "776" ...
## $ ...34: chr [1:82] "ISPARTA" "619" "957" "167" ...
## $ ...35: chr [1:82] "MERSÄ°N" "69" "407" "572" ...
## $ ...36: chr [1:82] "Ä°STANBUL" "951" "1189" "450" ...
## $ ...37: chr [1:82] "Ä°ZMÄ°R" "908" "1246" "329" ...
## $ ...38: chr [1:82] "KARS" "1014" "727" "1343" ...
## $ ...39: chr [1:82] "KASTAMONU" "696" "875" "504" ...
## $ ...40: chr [1:82] "KAYSERÄ°" "335" "421" "523" ...
## $ ...41: chr [1:82] "KIRKLARELÄ°" "1160" "1398" "659" ...
## $ ...42: chr [1:82] "KIRÅžEHÄ°R" "377" "556" "425" ...
## $ ...43: chr [1:82] "KOCAELÄ° (Ä°ZMÄ°T)" "841" "1079" "340" ...
## $ ...44: chr [1:82] "KONYA" "358" "696" "226" ...
## $ ...45: chr [1:82] "KÃœTAHYA" "676" "1014" "97" ...
## $ ...46: chr [1:82] "MALATYA" "397" "186" "863" ...
## $ ...47: chr [1:82] "MANÄ°SA" "887" "1224" "308" ...
## $ ...48: chr [1:82] "KAHRAMANMARAÅž" "198" "163" "777" ...
## $ ...49: chr [1:82] "MARDÄ°N" "549" "295" "1128" ...
## $ ...50: chr [1:82] "MUÄžLA" "858" "1196" "364" ...
## $ ...51: chr [1:82] "MUÅž" "743" "456" "1208" ...
## $ ...52: chr [1:82] "NEVÅžEHÄ°R" "288" "504" "444" ...
## $ ...53: chr [1:82] "NÄ°ÄžDE" "210" "548" "464" ...
## $ ...54: chr [1:82] "ORDU" "708" "732" "823" ...
## $ ...55: chr [1:82] "RÄ°ZE" "918" "772" "1077" ...
## $ ...56: chr [1:82] "SAKARYA (ADAPAZARI)" "803" "1041" "302" ...
## $ ...57: chr [1:82] "SAMSUN" "754" "757" "676" ...
## $ ...58: chr [1:82] "SÄ°Ä°RT" "721" "390" "1297" ...
## $ ...59: chr [1:82] "SÄ°NOP" "868" "883" "676" ...
## $ ...60: chr [1:82] "SÄ°VAS" "428" "413" "706" ...
## $ ...61: chr [1:82] "TEKÄ°RDAÄž" "1082" "1320" "581" ...
## $ ...62: chr [1:82] "TOKAT" "493" "517" "645" ...
## $ ...63: chr [1:82] "TRABZON" "839" "780" "998" ...
## $ ...64: chr [1:82] "TUNCELÄ°" "631" "419" "1079" ...
## $ ...65: chr [1:82] "ÅžANLIURFA" "355" "112" "934" ...
## $ ...66: chr [1:82] "UÅžAK" "691" "1029" "112" ...
## $ ...67: chr [1:82] "VAN" "905" "573" "1424" ...
## $ ...68: chr [1:82] "YOZGAT" "490" "619" "479" ...
## $ ...69: chr [1:82] "ZONGULDAK" "765" "1003" "484" ...
## $ ...70: chr [1:82] "AKSARAY" "268" "580" "368" ...
## $ ...71: chr [1:82] "BAYBURT" "801" "676" "1080" ...
## $ ...72: chr [1:82] "KARAMAN" "293" "631" "340" ...
## $ ...73: chr [1:82] "KIRIKKALE" "486" "665" "338" ...
## $ ...74: chr [1:82] "BATMAN" "634" "302" "1210" ...
## $ ...75: chr [1:82] "ÅžIRNAK" "720" "465" "1299" ...
## $ ...76: chr [1:82] "BARTIN" "784" "1022" "518" ...
## $ ...77: chr [1:82] "ARDAHAN" "1039" "751" "1362" ...
## $ ...78: chr [1:82] "IÄžDIR" "1081" "750" "1464" ...
## $ ...79: chr [1:82] "YALOVA" "906" "1144" "342" ...
## $ ...80: chr [1:82] "KARABÃœK" "714" "952" "448" ...
## $ ...81: chr [1:82] "KÄ°LÄ°S" "252" "210" "831" ...
## $ ...82: chr [1:82] "OSMANÄ°YE" "89" "245" "668" ...
## $ ...83: chr [1:82] "DÜZCE" "735" "973" "371" ...distance2## # A tibble: 82 × 81
## ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11 ...12 ...13 ...14 ...15
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 ADANA ADIY… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN BALI… BİLE… BİNG… BİTL…
## 2 0 338 579 978 604 492 548 1005 881 903 786 633 746
## 3 338 0 917 646 628 738 886 717 1219 1241 1039 348 414
## 4 579 917 0 1320 596 255 287 1225 340 324 207 1099 1290
## 5 978 646 1320 0 740 1056 1426 365 1635 1576 1361 352 232
## 6 604 628 596 740 0 331 824 679 936 842 626 642 833
## 7 492 738 255 1056 331 0 543 960 596 536 314 889 1080
## 8 548 886 287 1426 824 543 0 1433 346 506 473 1191 1294
## 9 1005 717 1225 365 679 960 1433 0 1565 1452 1236 373 547
## 10 881 1219 340 1635 936 596 346 1565 0 291 525 1401 1592
## # … with 72 more rows, and 68 more variables: ...16 <chr>, ...17 <chr>,
## # ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>, ...22 <chr>,
## # ...23 <chr>, ...24 <chr>, ...25 <chr>, ...26 <chr>, ...27 <chr>,
## # ...28 <chr>, ...29 <chr>, ...30 <chr>, ...31 <chr>, ...32 <chr>,
## # ...33 <chr>, ...34 <chr>, ...35 <chr>, ...36 <chr>, ...37 <chr>,
## # ...38 <chr>, ...39 <chr>, ...40 <chr>, ...41 <chr>, ...42 <chr>,
## # ...43 <chr>, ...44 <chr>, ...45 <chr>, ...46 <chr>, ...47 <chr>, …head(distance2)## # A tibble: 6 × 81
## ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11 ...12 ...13 ...14 ...15
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 ADANA ADIYA… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN BALI… BİLE… BİNG… BİTL…
## 2 0 338 579 978 604 492 548 1005 881 903 786 633 746
## 3 338 0 917 646 628 738 886 717 1219 1241 1039 348 414
## 4 579 917 0 1320 596 255 287 1225 340 324 207 1099 1290
## 5 978 646 1320 0 740 1056 1426 365 1635 1576 1361 352 232
## 6 604 628 596 740 0 331 824 679 936 842 626 642 833
## # … with 68 more variables: ...16 <chr>, ...17 <chr>, ...18 <chr>, ...19 <chr>,
## # ...20 <chr>, ...21 <chr>, ...22 <chr>, ...23 <chr>, ...24 <chr>,
## # ...25 <chr>, ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>,
## # ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>, ...34 <chr>,
## # ...35 <chr>, ...36 <chr>, ...37 <chr>, ...38 <chr>, ...39 <chr>,
## # ...40 <chr>, ...41 <chr>, ...42 <chr>, ...43 <chr>, ...44 <chr>,
## # ...45 <chr>, ...46 <chr>, ...47 <chr>, ...48 <chr>, ...49 <chr>, …# apply multidimensional scaling
#mds_fit=cmdscale(distance2, k = 2, )
# getting coordinates
#x=mds_fit[, 1]
#y=mds_fit[, 2]
# plotting
plot(x, y, pch = 19)
distance## # A tibble: 82 × 83
## `İLLER ARASI ME…` ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 İL PLAKA NO İL A… ADANA ADIY… AFYO… AĞRI AMAS… ANKA… ANTA… ARTV… AYDIN
## 2 01 ADANA 0 338 579 978 604 492 548 1005 881
## 3 02 ADIY… 338 0 917 646 628 738 886 717 1219
## 4 03 AFYO… 579 917 0 1320 596 255 287 1225 340
## 5 04 AÄžRI 978 646 1320 0 740 1056 1426 365 1635
## 6 05 AMAS… 604 628 596 740 0 331 824 679 936
## 7 06 ANKA… 492 738 255 1056 331 0 543 960 596
## 8 07 ANTA… 548 886 287 1426 824 543 0 1433 346
## 9 08 ARTV… 1005 717 1225 365 679 960 1433 0 1565
## 10 09 AYDIN 881 1219 340 1635 936 596 346 1565 0
## # … with 72 more rows, and 72 more variables: ...12 <chr>, ...13 <chr>,
## # ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>, ...18 <chr>,
## # ...19 <chr>, ...20 <chr>, ...21 <chr>, ...22 <chr>, ...23 <chr>,
## # ...24 <chr>, ...25 <chr>, ...26 <chr>, ...27 <chr>, ...28 <chr>,
## # ...29 <chr>, ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>,
## # ...34 <chr>, ...35 <chr>, ...36 <chr>, ...37 <chr>, ...38 <chr>,
## # ...39 <chr>, ...40 <chr>, ...41 <chr>, ...42 <chr>, ...43 <chr>, …text(x, y, pos = 4, labels =colnames(distance2))